Labels:text | electronics | screenshot | display | software | number | web page | computer icon | website OCR: frmContact Properties ... . ..... 0 DIM mbrMain AS Object DIM mnuApplication AS Object DIM mnuHelp AS Object Create a new menu bar object mbrMain = NEW MenuBar Create an About menu mnuApplication = NEW Menu mnuApplication. Label ="sApplication" muApplication. AppendMenuItem ( "<Exit", cCmdStop, NULL, "AQ" ) - Create a Help menu mnuHelp = NEW Menu mnuHelp. Label ="&Help" mnuHelp. AppendMenuItem ( "&Contents", cCmdContentsHelp, NULL, NULL ) mnuHelp. AppendMenuItem ( "&Using this Form", cCmdContextHelp, NULL, NULL ) mnuHelp. AppendMenuItem ( "<About this Sample. . . ", cCmdAbout, NULL, NULL ) Append the new menus to the menu bar mbrMain. AppendMenu ( mnuApplication ) mbrMain. AppendMenu ( mnuHelp ) Assign custom menu bar to form Self. SetMenuBar ( mbrMain )
